//+---//+------------------------------------------------------------------+
//|                                                Gann VLine.mq4          |
//|                              Copyright 2009, amurfx@gmail.com          |
//|                                                                        |
//+------------------------------------------------------------------------+
#property copyright "Copyright © 2009, Aleksandr Smolyak"
#property link      "amurfx@gmail.com"
#property indicator_chart_window

extern datetime  StartTime=D'2009.03.21 00:00';
extern int Step=46;
extern int Step1=61;
extern int Step2=91;
extern int Step3=121;
extern int Step4=137;
extern int Step5=182;
extern int Step6=227;
extern int Step7=242;
extern int Step8=272;
extern int Step9=317;
extern int Step10=333;
extern int Step11=365;
extern color Line.Color=Orange;
extern int Line.Style=2;
extern int Line.Width=1;
extern bool Draw.as.Background=true;
datetime VDATA;
datetime VDATA1;
datetime VDATA2;
datetime VDATA3;
datetime VDATA4;
datetime VDATA5;
datetime VDATA6;
datetime VDATA7;
datetime VDATA8;
datetime VDATA9;
datetime VDATA10;
datetime VDATA11;

int init(){return(0);}
int deinit(){
ObjectDelete("V-Line");
ObjectDelete("V-Line1");
ObjectDelete("V-Line2");
ObjectDelete("V-Line3");
ObjectDelete("V-Line4");
ObjectDelete("V-Line5");
ObjectDelete("V-Line6");
ObjectDelete("V-Line7");
ObjectDelete("V-Line8");
ObjectDelete("V-Line9");
ObjectDelete("V-Line10");
ObjectDelete("V-Line11");
return(0);}

int start(){

VDATA = StartTime+(Step *86400);

ObjectDelete("V-Line");
ObjectCreate("V-Line",OBJ_VLINE,0,VDATA,Bid);
ObjectSet("V-Line",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line",OBJPROP_BACK,Draw.as.Background);

VDATA1 = StartTime+(Step1 *86400);

ObjectDelete("V-Line1");
ObjectCreate("V-Line1",OBJ_VLINE,0,VDATA1,Bid);
ObjectSet("V-Line1",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line1",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line1",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line1",OBJPROP_BACK,Draw.as.Background);

VDATA2 = StartTime+(Step2 *86400);

ObjectDelete("V-Line2");
ObjectCreate("V-Line2",OBJ_VLINE,0,VDATA2,Bid);
ObjectSet("V-Line2",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line2",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line2",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line2",OBJPROP_BACK,Draw.as.Background);

VDATA3 = StartTime+(Step3 *86400);

ObjectDelete("V-Line3");
ObjectCreate("V-Line3",OBJ_VLINE,0,VDATA3,Bid);
ObjectSet("V-Line3",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line3",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line3",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line3",OBJPROP_BACK,Draw.as.Background);

VDATA4 = StartTime+(Step4 *86400);

ObjectDelete("V-Line4");
ObjectCreate("V-Line4",OBJ_VLINE,0,VDATA4,Bid);
ObjectSet("V-Line4",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line4",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line4",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line4",OBJPROP_BACK,Draw.as.Background);

VDATA5 = StartTime+(Step5 *86400);

ObjectDelete("V-Line5");
ObjectCreate("V-Line5",OBJ_VLINE,0,VDATA5,Bid);
ObjectSet("V-Line5",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line5",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line5",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line5",OBJPROP_BACK,Draw.as.Background);

VDATA6 = StartTime+(Step6 *86400);

ObjectDelete("V-Line6");
ObjectCreate("V-Line6",OBJ_VLINE,0,VDATA6,Bid);
ObjectSet("V-Line6",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line6",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line6",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line6",OBJPROP_BACK,Draw.as.Background);

VDATA7 = StartTime+(Step7 *86400);

ObjectDelete("V-Line7");
ObjectCreate("V-Line7",OBJ_VLINE,0,VDATA7,Bid);
ObjectSet("V-Line7",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line7",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line7",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line7",OBJPROP_BACK,Draw.as.Background);

VDATA8 = StartTime+(Step8 *86400);

ObjectDelete("V-Line8");
ObjectCreate("V-Line8",OBJ_VLINE,0,VDATA8,Bid);
ObjectSet("V-Line8",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line8",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line8",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line8",OBJPROP_BACK,Draw.as.Background);

VDATA9 = StartTime+(Step9 *86400);

ObjectDelete("V-Line9");
ObjectCreate("V-Line9",OBJ_VLINE,0,VDATA9,Bid);
ObjectSet("V-Line9",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line9",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line9",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line9",OBJPROP_BACK,Draw.as.Background);

VDATA10 = StartTime+(Step10 *86400);

ObjectDelete("V-Line10");
ObjectCreate("V-Line10",OBJ_VLINE,0,VDATA10,Bid);
ObjectSet("V-Line10",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line10",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line10",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line10",OBJPROP_BACK,Draw.as.Background);

VDATA11 = StartTime+(Step11 *86400);

ObjectDelete("V-Line11");
ObjectCreate("V-Line11",OBJ_VLINE,0,VDATA11,Bid);
ObjectSet("V-Line11",OBJPROP_COLOR,Line.Color);
ObjectSet("V-Line11",OBJPROP_STYLE,Line.Style);
ObjectSet("V-Line11",OBJPROP_WIDTH,Line.Width);
ObjectSet("V-Line11",OBJPROP_BACK,Draw.as.Background);
return(0);}

//+------------------------------------------------------------------+